	  �^  �   k820309    �
          11.1        }��_                                                                                                           
       messy_ncregrid_base.F90 MESSY_NCREGRID_BASE                      @                              
       SP DP I4 I8                                                        u #QSORT_I    #QSORT_B    #QSORT_R    #QSORT_D                                                           u #OVL_RR    #OVL_RD    #OVL_DR    #OVL_DD 	                                                         u #OVL_1D_RR 
   #OVL_1D_RD    #OVL_1D_DR    #OVL_1D_DD                                                          u #RGMSG_C    #RGMSG_I    #RGMSG_IA    #RGMSG_R                                                                                                                                                                                                                                                                                                                   4                                                                                                   8                             @                   REAL                                                  ASSOCIATED                                                  PRESENT                                                  PRODUCT                                                  SIZE                                                  INT                                                  ABS                                                  DBLE                                                  MAX                                                  MIN                                                   SIGN                                             !     TRIM                                             "     MAXVAL                                             #     MINVAL                                             $     IAND                                            %     NULL                                              &                                                      1                                             '                                                      2                                             (                                                      3                                             )                                                      4                                             *                                                       0                                             +                                                      1                                             ,                                                      2                                             -                                                      3                                             .                                                      4                                             /                                                      5                                             0                                                       0                                             1                                                      1                                             2                                                      2                                             3                                                      3                                             4                                                      4                                             5                                                      5                                             6                                                      6                                             7                                                      7                                             8                                                      8                                             9                                       	               9                                             :                                                       0                                             ;                                                      1                                             <                                                      2                                             =                                                      4                                             >                                                      8                                             ?                                                      16           @                               @                              @                          A     '�                   #N B   #DIM C   #VR D   #VD E   #VI F   #VB G   #VC H               �                              B                                                                                                 0              �                            C                                        &                                                                                  y                                                         �                            D            L                	            &                                                                                  y	                                                         �                            E            �                
            &                                                                                  y
                                                         �                            F            �                            &                                                                                  y                                                         �                            G            $                           &                                                                                  y                                               .          �                             H            l                           &                                                                                          y                                                                 @                          I     '                   #DAT J   #LM K   #NDP L   #DEP M                �                               J     �                     #NARRAY A               �                               K     �                                                                                     �J                    �                              L     �                                                                                          0              �                            M            �                           &                                                                                  y                                               #         @ �    X                                              #DATA N   #INDEX O   #ILEFT P   #IRIGHT Q             
D@                              N                    	              &                                                    D P                              O                    
              &                                                     
 @                              P                     
 @                              Q           #         @ �    X                                              #DATA R   #INDEX S   #ILEFT T   #IRIGHT U             
D@                              R                                  &                                                    D P                              S                                  &                                                     
 @                              T                     
 @                              U           #         @ �    X                                              #DATA V   #INDEX W   #ILEFT X   #IRIGHT Y             
D@                              V                   	               &                                                    D P                              W                                  &                                                     
 @                              X                     
 @                              Y           #         @ �    X                                              #DATA Z   #INDEX [   #ILEFT \   #IRIGHT ]             
D@                              Z                   
               &                                                    D P                              [                                  &                                                     
 @                              \                     
 @                              ]           #         @      X                                              #SL ^   #SR _   #DL `   #DR a   #FS b   #FD c   #MODULO d             
  @                              ^     	                
  @                              _     	                
  @                              `     	                
  @                              a     	                D                                b     
                 D                                c     
                 
 @                              d     
      #         @      X                                              #SL e   #SR f   #DL g   #DR h   #FS i   #FD j   #MODULO k             
  @                              e     	                
  @                              f     	                
  @                              g     
                
  @                              h     
                D                                i     
                 D                                j     
                 
 @                              k     
      #         @      X                                              #SL l   #SR m   #DL n   #DR o   #FS p   #FD q   #MODULO r             
  @                              l     
                
  @                              m     
                
  @                              n     	                
  @                              o     	                D                                p     
                 D                                q     
                 
 @                              r     
      #         @      X                           	                   #SL s   #SR t   #DL u   #DR v   #FS w   #FD x   #MODULO y             
  @                              s     
                
  @                              t     
                
  @                              u     
                
  @                              v     
                D                                w     
                 D                                x     
                 
 @                              y     
      #         @      X                            
                   #S z   #D {   #MFS |   #MFD }   #LMOD ~             
 @                              z                   	              &                                                     
 @                              {                   	              &                                                     D@                              |                   
               &                   &                                                     D@                              }                   
               &                   &                                                     
                                  ~           #         @      X                                               #S    #D �   #MFS �   #MFD �   #LMOD �             
 @                                                 	              &                                                     
 @                              �                   
              &                                                     D@                              �                   
               &                   &                                                     D@                              �                   
               &                   &                                                     
                                  �           #         @      X                                               #S �   #D �   #MFS �   #MFD �   #LMOD �             
 @                              �                   
              &                                                     
 @                              �                   	              &                                                     D@                              �                   
               &                   &                                                     D@                              �                   
               &                   &                                                     
                                  �           #         @      X                                              #S �   #D �   #MFS �   #MFD �   #LMOD �             
 @                              �                   
              &                                                     
 @                              �                   
              &                                                     D@                              �                   
               &                   &                                                     D@                              �                   
                &                   &                                                     
                                  �           #         @      X                                              #ROUTINE �   #LEVEL �   #C �   #LSTOP �             
  @                              �                    1           
                                  �                     
  @                              �                    1           
 @                               �           #         @      X                                              #ROUTINE �   #LEVEL �   #C1 �   #I �   #C2 �   #LSTOP �             
  @                              �                    1           
  @                               �                     
  @                              �                    1           
                                  �                     
  @                              �                    1           
 @                               �           #         @      X                                              #ROUTINE �   #LEVEL �   #C1 �   #I �   #C2 �   #LSTOP �             
  @                              �                    1           
  @                               �                     
  @                              �                    1           
                                  �                    G             &                                                     
  @                              �                    1           
 @                               �           #         @      X                                               #ROUTINE �   #LEVEL �   #C1 �   #R �   #C2 �   #LSTOP �             
  @                              �                    1           
  @                               �                     
  @                              �                    1           
                                  �     	                
  @                              �                    1           
 @                               �           %         @                               �                           #NA �             
                                  �     �             #NARRAY A   #         @                                 �                   #NA �   #N �   #DIM �   #QTYPE �             
D                                 �     �              #NARRAY A             
 @                               �                     
@                               �                                 &                                                      @                               �            #         @                                 �                   #ROUTINE �   #STATUS �   #POS �             
@ @                              �                    1           
@ @                               �                     
@ @                               �           #         @                                 �                   #A �             
D @                               �                   #AXIS I   #         @                                 �                   #D �   #S �             D                                 �     �              #NARRAY A             
  @                               �     �             #NARRAY A   #         @                                 �                   #D �   #S �             D @                               �                   #AXIS I             
                                  �                  #AXIS I   #         @                                  �                   #NA �   #NX �   #REVERSE �             
D @                               �     �              #NARRAY A             
D @                               �     �              #NARRAY A             
 @                               �           #         @                                  �                   #NA �   #NX �             
D @                               �     �              #NARRAY A             
@ @                               �     �             #NARRAY A   #         @                                  �                   #NA �             
D @                               �     �              #NARRAY A   #         @                                  �                   #NA �   #SC �             
D @                               �     �              #NARRAY A             
  @                               �     	      #         @                                  �                   #NA �   #NB �             
D @                               �     �              #NARRAY A             
  @                               �     �             #NARRAY A   %         @                               �                           #DIM �   #VEC �             
 @                               �                    !             &                                                     
 @                               �                    "             &                                           #         @                                  �                   #DIM �   #N �   #VEC �             
 @                               �                    #             &                                                     
                                  �                    DP                               �                    $              &                                           #         @ �                               �                   #S �   #SAX �   #DAX �   #D �   #RG_TYPE �   #SOVL �   #DOVL �   #RCNT �   #GM �   #GNR �   #GSVEC �   #GDVEC �   #GDIO �   #GSF �   #GDF �             
@@                               �            �      &               &                                           #NARRAY A             
@@                               �                  (               &                                           #AXIS I             
D@                               �                  )                &                                           #AXIS I            D P                               �            �      '                &                                           #NARRAY A             
 @                               �                    *             &                                                    D P                              �                   
 +              &                                                    D P                              �                   
 ,              &                                                    D P                               �                    -              &                                                     
 @                               �                     
 @                               �                     @                               �                    .              &                                                     @                               �                    /              &                                                     @                               �                    0              &                                                     
 @                              �     
                
 @                              �     
      #         @                                 �                   #SAX �   #DAX �   #SOVL �   #DOVL �   #NAI �   #NAO �   #RCNT �             
                                  �                  @               &                                           #AXIS I             
                                  �                  A               &                                           #AXIS I             
 @                              �                   
 B             &                                                     
                                 �                   
 C             &                                                     
 @                               �            �      D               &                                           #NARRAY A             
                                  �            �      E               &                                           #NARRAY A             
 @                               �                    F             &                                              �   4      fn#fn    �   L   J  HCO_ERROR_MOD       t       gen@QSORT    �  p       gen@OVL      |       gen@OVL_1D    �  u       gen@RGMSG !   �  p       SP+HCO_ERROR_MOD !   e  p       DP+HCO_ERROR_MOD !   �  q       I4+HCO_ERROR_MOD !   F  q       I8+HCO_ERROR_MOD    �  =       REAL    �  C       ASSOCIATED    7  @       PRESENT    w  @       PRODUCT    �  =       SIZE    �  <       INT    0  <       ABS    l  =       DBLE    �  <       MAX    �  <       MIN    !  =       SIGN    ^  =       TRIM    �  ?       MAXVAL    �  ?       MINVAL      =       IAND    V  =       NULL    �  q       RG_INT    	  q       RG_EXT    u	  q       RG_IDX    �	  q       RG_IXF    W
  q       VTYPE_UNDEF    �
  q       VTYPE_INT    9  q       VTYPE_REAL    �  q       VTYPE_DOUBLE      q       VTYPE_BYTE    �  q       VTYPE_CHAR    �  q       RGMLE    n  q       RGMLEC    �  q       RGMLVL    P  q       RGMLVLC    �  q       RGMLW    2  q       RGMLWC    �  q       RGMLVM      q       RGMLVMC    �  q       RGMLI    �  q       RGMLIC    g  q       MSGMODE_S    �  q       MSGMODE_E    I  q       MSGMODE_VL    �  q       MSGMODE_W    +  q       MSGMODE_VM    �  r       MSGMODE_I      @       MSGMODE    N  �       NARRAY    �  �   a   NARRAY%N    {  �   a   NARRAY%DIM    o  �   a   NARRAY%VR    c  �   a   NARRAY%VD    W  �   a   NARRAY%VI    K  �   a   NARRAY%VB    ?  �   a   NARRAY%VC    ;  s       AXIS    �  \   a   AXIS%DAT    
  �   a   AXIS%LM    �  �   a   AXIS%NDP    S  �   a   AXIS%DEP    G  t       QSORT_I    �  �   a   QSORT_I%DATA    G  �   a   QSORT_I%INDEX    �  @   a   QSORT_I%ILEFT       @   a   QSORT_I%IRIGHT    S   t       QSORT_B    �   �   a   QSORT_B%DATA    S!  �   a   QSORT_B%INDEX    �!  @   a   QSORT_B%ILEFT    "  @   a   QSORT_B%IRIGHT    _"  t       QSORT_R    �"  �   a   QSORT_R%DATA    _#  �   a   QSORT_R%INDEX    �#  @   a   QSORT_R%ILEFT    +$  @   a   QSORT_R%IRIGHT    k$  t       QSORT_D    �$  �   a   QSORT_D%DATA    k%  �   a   QSORT_D%INDEX    �%  @   a   QSORT_D%ILEFT    7&  @   a   QSORT_D%IRIGHT    w&  �       OVL_RR    �&  @   a   OVL_RR%SL    ;'  @   a   OVL_RR%SR    {'  @   a   OVL_RR%DL    �'  @   a   OVL_RR%DR    �'  @   a   OVL_RR%FS    ;(  @   a   OVL_RR%FD    {(  @   a   OVL_RR%MODULO    �(  �       OVL_RD    ?)  @   a   OVL_RD%SL    )  @   a   OVL_RD%SR    �)  @   a   OVL_RD%DL    �)  @   a   OVL_RD%DR    ?*  @   a   OVL_RD%FS    *  @   a   OVL_RD%FD    �*  @   a   OVL_RD%MODULO    �*  �       OVL_DR    �+  @   a   OVL_DR%SL    �+  @   a   OVL_DR%SR    ,  @   a   OVL_DR%DL    C,  @   a   OVL_DR%DR    �,  @   a   OVL_DR%FS    �,  @   a   OVL_DR%FD    -  @   a   OVL_DR%MODULO    C-  �       OVL_DD    �-  @   a   OVL_DD%SL    .  @   a   OVL_DD%SR    G.  @   a   OVL_DD%DL    �.  @   a   OVL_DD%DR    �.  @   a   OVL_DD%FS    /  @   a   OVL_DD%FD    G/  @   a   OVL_DD%MODULO    �/  r       OVL_1D_RR    �/  �   a   OVL_1D_RR%S    �0  �   a   OVL_1D_RR%D    1  �   a   OVL_1D_RR%MFS    �1  �   a   OVL_1D_RR%MFD    Y2  @   a   OVL_1D_RR%LMOD    �2  r       OVL_1D_RD    3  �   a   OVL_1D_RD%S    �3  �   a   OVL_1D_RD%D    #4  �   a   OVL_1D_RD%MFS    �4  �   a   OVL_1D_RD%MFD    k5  @   a   OVL_1D_RD%LMOD    �5  r       OVL_1D_DR    6  �   a   OVL_1D_DR%S    �6  �   a   OVL_1D_DR%D    57  �   a   OVL_1D_DR%MFS    �7  �   a   OVL_1D_DR%MFD    }8  @   a   OVL_1D_DR%LMOD    �8  r       OVL_1D_DD    /9  �   a   OVL_1D_DD%S    �9  �   a   OVL_1D_DD%D    G:  �   a   OVL_1D_DD%MFS    �:  �   a   OVL_1D_DD%MFD    �;  @   a   OVL_1D_DD%LMOD    �;  r       RGMSG_C     A<  L   a   RGMSG_C%ROUTINE    �<  @   a   RGMSG_C%LEVEL    �<  L   a   RGMSG_C%C    =  @   a   RGMSG_C%LSTOP    Y=  �       RGMSG_I     �=  L   a   RGMSG_I%ROUTINE    '>  @   a   RGMSG_I%LEVEL    g>  L   a   RGMSG_I%C1    �>  @   a   RGMSG_I%I    �>  L   a   RGMSG_I%C2    ??  @   a   RGMSG_I%LSTOP    ?  �       RGMSG_IA !   @  L   a   RGMSG_IA%ROUTINE    M@  @   a   RGMSG_IA%LEVEL    �@  L   a   RGMSG_IA%C1    �@  �   a   RGMSG_IA%I    eA  L   a   RGMSG_IA%C2    �A  @   a   RGMSG_IA%LSTOP    �A  �       RGMSG_R     sB  L   a   RGMSG_R%ROUTINE    �B  @   a   RGMSG_R%LEVEL    �B  L   a   RGMSG_R%C1    KC  @   a   RGMSG_R%R    �C  L   a   RGMSG_R%C2    �C  @   a   RGMSG_R%LSTOP    D  X       QTYPE_NARRAY     oD  T   a   QTYPE_NARRAY%NA    �D  k       INIT_NARRAY    .E  T   a   INIT_NARRAY%NA    �E  @   a   INIT_NARRAY%N     �E  �   a   INIT_NARRAY%DIM "   NF  @   a   INIT_NARRAY%QTYPE    �F  j       ERRMSG    �F  L   a   ERRMSG%ROUTINE    DG  @   a   ERRMSG%STATUS    �G  @   a   ERRMSG%POS    �G  O       INIT_AXIS    H  R   a   INIT_AXIS%A    eH  V       COPY_NARRAY    �H  T   a   COPY_NARRAY%D    I  T   a   COPY_NARRAY%S    cI  V       COPY_AXIS    �I  R   a   COPY_AXIS%D    J  R   a   COPY_AXIS%S    ]J  e       SORT_NARRAY    �J  T   a   SORT_NARRAY%NA    K  T   a   SORT_NARRAY%NX $   jK  @   a   SORT_NARRAY%REVERSE    �K  X       REORDER_NARRAY "   L  T   a   REORDER_NARRAY%NA "   VL  T   a   REORDER_NARRAY%NX    �L  P       DOUBLE_NARRAY !   �L  T   a   DOUBLE_NARRAY%NA    NM  X       SCALE_NARRAY     �M  T   a   SCALE_NARRAY%NA     �M  @   a   SCALE_NARRAY%SC    :N  X       CAT_NARRAY    �N  T   a   CAT_NARRAY%NA    �N  T   a   CAT_NARRAY%NB    :O  b       POSITION    �O  �   a   POSITION%DIM    (P  �   a   POSITION%VEC    �P  a       ELEMENT    Q  �   a   ELEMENT%DIM    �Q  @   a   ELEMENT%N    �Q  �   a   ELEMENT%VEC    mR  �       NREGRID    CS  �   a   NREGRID%S    �S  �   a   NREGRID%SAX    qT  �   a   NREGRID%DAX    U  �   a   NREGRID%D     �U  �   a   NREGRID%RG_TYPE    +V  �   a   NREGRID%SOVL    �V  �   a   NREGRID%DOVL    CW  �   a   NREGRID%RCNT    �W  @   a   NREGRID%GM    X  @   a   NREGRID%GNR    OX  �   a   NREGRID%GSVEC    �X  �   a   NREGRID%GDVEC    gY  �   a   NREGRID%GDIO    �Y  @   a   NREGRID%GSF    3Z  @   a   NREGRID%GDF    sZ  �       NREGRID_STAT !   �Z  �   a   NREGRID_STAT%SAX !   �[  �   a   NREGRID_STAT%DAX "   )\  �   a   NREGRID_STAT%SOVL "   �\  �   a   NREGRID_STAT%DOVL !   A]  �   a   NREGRID_STAT%NAI !   �]  �   a   NREGRID_STAT%NAO "   q^  �   a   NREGRID_STAT%RCNT 